EnigmA Amiga Run 1997 May/EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso/programs/write/module/mouse.module

Text File | 1996-09-18 | 473b | 28 lines

MODULE Mouse;

KEY "rawmouse lbutton mouse_leftpress"
  StartMarkMode;
END;

KEY "rawmouse upstroke mouse_leftpress"
  StopMarkMode;
END;

(*DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  IF GotoMouse{@SAMEPOS} THEN
    SetMark
  ELSE
    GotoMouse
  END
END;*)

KEY "rawmouse rbutton lbutton mouse_rightpress"
  Unmark
END;

DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  (*PANNEL*)
END;

END Mouse.